object MainForm: TMainForm Left = 187 Top = 23 HorzScrollBar.Tracking = True VertScrollBar.Tracking = True BorderIcons = [biSystemMenu, biMinimize, biHelp] BorderStyle = bsSingle Caption = 'Ultra Logic' ClientHeight = 373 ClientWidth = 288 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu Position = poScreenCenter Visible = True OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object imgBackGround: TImage Left = 0 Top = 0 Width = 288 Height = 354 Align = alClient Center = True Picture.Data = {} Stretch = True end object Hand: TImage Left = 5 Top = 88 Width = 38 Height = 18 ParentShowHint = False Picture.Data = {} ShowHint = False end object Bevel3: TBevel Left = 1 Top = 38 Width = 226 Height = 9 Shape = bsBottomLine end object Bevel4: TBevel Left = 162 Top = 2 Width = 2 Height = 40 Shape = bsLeftLine end object SpeedButton1: TSpeedButton Left = 248 Top = 6 Width = 28 Height = 27 Hint = 'Help|' Glyph.Data = { 50020000424D500200000000000076000000280000001E0000001B0000000100 040000000000B001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000 000000000000000007007F8888888888888888888888888807007F7777777777 777777777777777807007F7777777777777777777777777807007F7777777777 777777777777777807007F7777777770077777777777777807007F7777777770 077777777777777807007F77777777007777CCC77777777807007F7777077700 7777CCC77777777807007F7777007007777777777777777807007F7777000007 7777CC777777777807007F77770000000077CC777777777807007F7777000000 0777CCC77777777807007F7777000000777777CC7777777807007F7777000007 77CC777CC777777807007F77770000777CC7777CC777777807007F7777000777 7CC7777CC777777807007F777700777777CC777CC777777807007F7777077777 777CCCCC7777777807007F7777777777777777777777777807007F7777777777 777777777777777807007F7777777777777777777777777807007F7777777777 777777777777777807007F7777777777777777777777777807007F7777777777 777777777777777807007FFFFFFFFFFFFFFFFFFFFFFFFFFF0700777777777777 77777777777777777700010000000200000000000000000000004D0000A02C00 6C001C006C00CA050000AE05000094000000D605} ParentShowHint = False ShowHint = True Visible = False OnClick = SpeedButton1Click end object LeftBoard: TDrawGrid Left = 43 Top = 83 Width = 127 Height = 263 TabStop = False Color = clWhite Ctl3D = True DefaultColWidth = 30 DefaultRowHeight = 25 DefaultDrawing = False FixedColor = clWhite FixedCols = 4 RowCount = 10 FixedRows = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine] ParentCtl3D = False ParentShowHint = False PopupMenu = PopupMenu1 ScrollBars = ssNone ShowHint = False TabOrder = 0 OnDragDrop = LeftBoardDragDrop OnDragOver = LeftBoardDragOver OnDrawCell = LeftBoardDrawCell OnMouseDown = LeftBoardMouseDown RowHeights = ( 25 27 25 25 25 25 25 25 25 25) end object RightBoard: TDrawGrid Left = 188 Top = 83 Width = 92 Height = 266 HelpContext = 3001 TabStop = False Color = clTeal DefaultColWidth = 21 DefaultRowHeight = 25 DefaultDrawing = False FixedColor = clTeal FixedCols = 4 RowCount = 10 FixedRows = 0 ParentShowHint = False PopupMenu = PopupMenu2 ScrollBars = ssNone ShowHint = False TabOrder = 1 OnDrawCell = RightBoardDrawCell RowHeights = ( 26 25 25 25 25 25 25 25 26 25) end object MediaPlayer: TMediaPlayer Left = 9 Top = 342 Width = 85 Height = 20 VisibleButtons = [btPlay, btStop, btEject] Visible = False TabOrder = 2 OnNotify = MediaPlayerNotify end object ColorsBarPanel: TPanel Left = 1 Top = 49 Width = 222 Height = 30 HelpContext = 3002 BevelInner = bvRaised BevelOuter = bvNone ParentShowHint = False PopupMenu = PopupMenu2 ShowHint = False TabOrder = 3 object RedShape: TShape Left = 3 Top = 4 Width = 24 Height = 22 Brush.Color = clRed Shape = stRoundRect OnMouseDown = AnyShapeMouseDown end object GreenShape: TShape Left = 194 Top = 4 Width = 24 Height = 22 Brush.Color = clGreen Shape = stRoundRect OnMouseDown = AnyShapeMouseDown end object BlackShape: TShape Left = 58 Top = 4 Width = 24 Height = 22 Brush.Color = clBlack Shape = stRoundRect OnMouseDown = AnyShapeMouseDown end object YellowShape: TShape Left = 85 Top = 4 Width = 24 Height = 22 Brush.Color = clYellow Shape = stRoundRect OnMouseDown = AnyShapeMouseDown end object BlueShape: TShape Left = 112 Top = 4 Width = 24 Height = 22 Brush.Color = clBlue Shape = stRoundRect OnMouseDown = AnyShapeMouseDown end object GrayShape: TShape Left = 139 Top = 4 Width = 24 Height = 22 Brush.Color = clGray Shape = stRoundRect OnMouseDown = AnyShapeMouseDown end object FuchsiaShape: TShape Left = 167 Top = 4 Width = 24 Height = 22 Brush.Color = clFuchsia Shape = stRoundRect OnMouseDown = AnyShapeMouseDown end object LimeShape: TShape Left = 30 Top = 4 Width = 24 Height = 22 Brush.Color = clLime Shape = stRoundRect OnMouseDown = AnyShapeMouseDown end end object Panel1: TPanel Left = 2 Top = 6 Width = 153 Height = 31 TabOrder = 4 object sbtnCheck: TSpeedButton Left = 64 Top = 3 Width = 25 Height = 25 Hint = 'Check!|' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555555555555555555555555555555555555555FF55555555555559055555 55555555577FF5555555555599905555555555557777F5555555555599905555 555555557777FF5555555559999905555555555777777F555555559999990555 5555557777777FF5555557990599905555555777757777F55555790555599055 55557775555777FF5555555555599905555555555557777F5555555555559905 555555555555777FF5555555555559905555555555555777FF55555555555579 05555555555555777FF5555555555557905555555555555777FF555555555555 59905555555555555777555555555555555555555555555555550000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = sbtnCheckClick end object sbtnNew: TSpeedButton Left = 4 Top = 3 Width = 25 Height = 25 Hint = 'New Game|' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = mmenuNewGameClick end object sbtnRegistrationForm: TSpeedButton Left = 97 Top = 3 Width = 25 Height = 25 Hint = 'Registration Form|' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF7733333033000000033333373377777773330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = mmenuRegistrationFormClick end object sbtnRegistrationCode: TSpeedButton Left = 124 Top = 3 Width = 25 Height = 25 Hint = 'Registration Code|' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5000555555555555577755555555555550B0555555555555F7F7555555555550 00B05555555555577757555555555550B3B05555555555F7F557555555555000 3B0555555555577755755555555500B3B0555555555577555755555555550B3B 055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05 555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555 55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055 555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755 55555575FFFF77555555555700007555555555577777755555550000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = mmenuRegistrationCodeClick end object Bevel1: TBevel Left = 92 Top = 2 Width = 3 Height = 25 Shape = bsLeftLine end object sbtnProperties: TSpeedButton Left = 34 Top = 3 Width = 25 Height = 25 Hint = 'Game Properties|' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007777777778888877777700007777777000008887777700007777 77ECCCCC088777770000777777EC6EEC088777770000777777EC08EC08877777 0000777777EC006C088777770000777777ECCCCC088777770000777777ECCCCC 088877770000777777ECCCCC08888777000077777CCCCCCCC088887700007777 CCCCCCCCCC0888870000777CCCCCCCCCCCC08887000077ECCCCCCCCCCCCC0887 000077ECCCC0877ECCCC0887000077ECCC088777ECCC0877000077ECCC088777 ECCC07770000777ECC077777ECC0777700007777EE677777EE67777700007777 77777777777777770000} ParentShowHint = False ShowHint = True OnClick = mmenuPropertiesClick end end object Panel2: TPanel Left = 172 Top = 2 Width = 54 Height = 39 HelpContext = 3003 BevelInner = bvRaised ParentShowHint = False PopupMenu = PopupMenu2 ShowHint = False TabOrder = 5 object TimerDigit1: TDigit Left = 3 Top = 3 Width = 16 Height = 32 Color = clBlack ColorOff = clMaroon ColorOn = clYellow ValueBinary = 125 ParentColor = False Thickness = 2 Separation = 1 end object TimerDigit2: TDigit Left = 19 Top = 3 Width = 16 Height = 32 Color = clBlack ColorOff = clMaroon ColorOn = clYellow ValueBinary = 125 ParentColor = False Thickness = 2 Separation = 1 end object TimerDigit3: TDigit Left = 35 Top = 3 Width = 16 Height = 32 Color = clBlack ColorOff = clMaroon ColorOn = clYellow ValueBinary = 125 ParentColor = False Thickness = 2 Separation = 1 end end object StatusBar: TStatusBar Left = 0 Top = 354 Width = 288 Height = 19 Panels = < item Text = 'Row:' Width = 50 end item Width = 50 end> SimplePanel = False SizeGrip = False end object MainMenu: TMainMenu Left = 101 Top = 342 object GameMenu: TMenuItem Caption = '&Game' RadioItem = True ShortCut = 0 object mmenuNewGame: TMenuItem Caption = '&New' HelpContext = 201 Hint = 'Start a new game with current settings' ShortCut = 113 OnClick = mmenuNewGameClick end object mmenuGiveUp: TMenuItem Caption = '&Give Up!' GroupIndex = 3 Hint = 'Abort the game and show the correct solution' ShortCut = 0 OnClick = mmenuGiveUpClick end object N2: TMenuItem Caption = '-' GroupIndex = 3 ShortCut = 0 end object mmenuProperties: TMenuItem Caption = 'P&roperties...' GroupIndex = 3 Hint = 'Change various game options' ShortCut = 0 OnClick = mmenuPropertiesClick end object N4: TMenuItem Caption = '-' GroupIndex = 3 ShortCut = 0 end object ExitMenu: TMenuItem Caption = 'E&xit' GroupIndex = 3 HelpContext = 202 Hint = 'Exit Ultra Logic' ShortCut = 0 OnClick = ExitMenuClick end end object Level: TMenuItem Caption = '&Level' ShortCut = 0 object BeginnerMenu: TMenuItem Caption = '&Beginner' Checked = True GroupIndex = 1 Hint = 'The easiest level' RadioItem = True ShortCut = 0 OnClick = BeginnerMenuClick end object IntermediateMenu: TMenuItem Caption = '&Intermediate' GroupIndex = 1 Hint = 'Medium difficulty level' RadioItem = True ShortCut = 0 OnClick = IntermediateMenuClick end object mmenuExpert: TMenuItem Caption = '&Expert!' GroupIndex = 1 Hint = 'Hardest difficulty level' RadioItem = True ShortCut = 0 OnClick = mmenuExpertClick end object CustomMenu: TMenuItem Caption = '&Custom...' GroupIndex = 1 Hint = 'Chose any board size you want!' RadioItem = True ShortCut = 0 OnClick = CustomMenuClick end end object HelpMenu: TMenuItem Caption = '&Help' ShortCut = 0 object HelpTopicsMenu: TMenuItem Caption = 'Help &Topics' HelpContext = 221 Hint = 'Show help contents' ShortCut = 0 OnClick = HelpTopicsMenuClick end object WhatsNewMenu: TMenuItem Caption = 'What'#39's &New?' Hint = 'Improvements and bug fixes since last version' ShortCut = 0 OnClick = WhatsNewMenuClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object mmenuRegistrationForm: TMenuItem Caption = '&Registration Form...' Hint = 'Fill out Ultra Logic registration form' ShortCut = 0 OnClick = mmenuRegistrationFormClick end object mmenuRegistrationCode: TMenuItem Caption = '&Enter Reg Number...' Hint = 'Enter registration number to register Ultra Logic' ShortCut = 0 OnClick = mmenuRegistrationCodeClick end object mmenuHelpDivider2: TMenuItem Caption = '-' ShortCut = 0 end object mmenuAbout: TMenuItem Caption = '&About...' Hint = 'Show credits and statistics information' ShortCut = 0 OnClick = mmenuAboutClick end end end object SecondsTimer: TTimer OnTimer = SecondsTimerTimer Left = 172 Top = 341 end object Registration: TRegistration UserInterface.Title = 'Please enter registration information' UserInterface.LabelsFont.Color = clWindowText UserInterface.LabelsFont.Height = -11 UserInterface.LabelsFont.Name = 'MS Sans Serif' UserInterface.LabelsFont.Style = [fsBold] UserInterface.Background = bkGrey UserInfo.UserName = '0' UserInfo.RegNumber = '0' UserInfo.NumberOfDigits = 5 UserInfo.MagicNumber = 99999 UserInfo.Correct = False OnSuccess = RegistrationSuccess OnFailure = RegistrationFailure Left = 137 Top = 341 end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 91 Top = 190 object pmenuRepeat: TMenuItem Caption = '&Repeat' Default = True ShortCut = 0 OnClick = pmenuRepeatClick end object pmenuClear: TMenuItem Caption = '&Clear' ShortCut = 0 OnClick = pmenuClearClick end object pmenuClearRow: TMenuItem Caption = 'Clear &Row' ShortCut = 0 OnClick = pmenuClearRowClick end object N5: TMenuItem Caption = '-' ShortCut = 0 end object pmenuGiveUp: TMenuItem Caption = '&Give Up!' ShortCut = 0 OnClick = pmenuGiveUpClick end end object PopupMenu2: TPopupMenu Left = 207 Top = 341 object pmenuWhatsThis: TMenuItem Caption = '&What'#39's This?' ShortCut = 0 OnClick = pmenuWhatsThisClick end end object VersionResource: TVersionResource FileName = 'F:\Ultra Logic 2010\UltraLogic.exe' Left = 246 Top = 341 end end